home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_13 / DoAction.as
Text File  |  2001-11-21  |  665b  |  29 lines
  1. ny = "0";
  2. yn = "0";
  3. while(yn == "0")
  4. {
  5.    ny += "1";
  6.    n = "0";
  7.    while(n < "4")
  8.    {
  9.       n += "1";
  10.       if("0" < eval("c" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "20" + ny)))
  11.       {
  12.          yn = "1";
  13.       }
  14.    }
  15. }
  16. call("delbox");
  17. y = y + ny - "1";
  18. n = "0";
  19. while(n < "4")
  20. {
  21.    n += "1";
  22.    set("c" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "20"),"1");
  23.    tellTarget("b" add (x + eval("x" add tc add ts add n) + "20") add (y + eval("y" add tc add ts add n) + "20"))
  24.    {
  25.       gotoAndStop(eval("/:lev") + "1");
  26.    }
  27. }
  28. gotoAndPlay(26);
  29.